home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / patch / ps3c.lha / 3.0cUpdate / Macros.LHA / FontAnalyzerV2.rexx next >
OS/2 REXX Batch file  |  1994-11-01  |  3KB  |  68 lines
  1. /* $VER: FontAnalyzerV2.rexx 1.0c (01.11.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6. TRACE OFF
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.    CALL ADDLIB('rexxsupport.library',0,-30)
  11.  
  12. ADDRESS 'PAGESTREAM'
  13.  
  14. ;GIVE INSTRUCTIONS
  15. allocarexxrequester '"Analyze PageStream2 FontList File"' 592 111
  16.     reqhandle=result
  17. addarexxgadget reqhandle EXIT 12 94 70 label "_Ok"
  18.     Okhandle=result
  19. addarexxgadget reqhandle EXIT 510 94 70 label "_Cancel"
  20.     Cancelhandle=result
  21. addarexxgadget reqhandle TEXT 8 10 576 border none string "'This macro is used to ensure PageStream3 can recognize the fonts used'"
  22. addarexxgadget reqhandle TEXT 8 20 576 border none string "'in your PageStream 2 documents. It will open a file requester for you'"
  23. addarexxgadget reqhandle TEXT 8 30 576 border none string "'to select your PageStream2 FONTLISTv2 file. The macro will run the'"
  24. addarexxgadget reqhandle TEXT 8 40 576 border none string "'FontListv2Analyzer utility included with PageStream3 and will append'"
  25. addarexxgadget reqhandle TEXT 8 50 576 border none string "'the names of your fonts to the SoftLogik:Filters/PageStream2.fontlist'"
  26. addarexxgadget reqhandle TEXT 8 60 576 border none string "'file. Your FONTLISTv2 file will be in your PageStream2 PSFonts drawer,'"
  27. addarexxgadget reqhandle TEXT 8 70 576 border none string "'or wherever you set the path for fonts with the Set/Save Paths command.'"
  28. doarexxrequester reqhandle
  29.  
  30. action=result
  31. freearexxrequester reqhandle
  32.  
  33. ;ANALYZE FONTLIST
  34. if action=okhandle then do
  35.     getfile TITLE '"Select FONTLISTv2 File"' load PATH 'ram:' FILE 'FONTLISTv2' POSBUTTON 'Ok'
  36.     path=result
  37.     if rc=0 then do
  38.         'lockinterface true'
  39.         openbusyrequester message "'Analyzing FONTLISTv2...'" thermometer disabled abort disabled
  40.         bh=result
  41.         address command 'PageStream3:FontListv2Analyzer 'path
  42.         if rc=0 then do
  43.             closebusyrequester bh
  44.             allocarexxrequester '"Done!"' 528 81
  45.                 reqhandle=result
  46.             addarexxgadget reqhandle EXIT 229 64 70 label "_Ok"
  47.             addarexxgadget reqhandle TEXT 8 10 512 border none string "'Your PageStream2 FONTLISTv2 file has been analyzed, and the'"
  48.             addarexxgadget reqhandle TEXT 8 20 512 border none string "'list of your fonts has been appended to the SoftLogik:Filters/'"
  49.             addarexxgadget reqhandle TEXT 8 30 512 border none string "'PageStream2.fontlist file. You are now ready to open your'"
  50.             addarexxgadget reqhandle TEXT 8 40 512 border none string "'version 2 documents in PageStream 3.0.'"
  51.             doarexxrequester reqhandle
  52.             freearexxrequester reqhandle
  53.             'lockinterface false'
  54.             end
  55.         else do
  56.             closebusyrequester bh
  57.             allocarexxrequester '"Error!"' 528 61
  58.                 reqhandle=result
  59.             addarexxgadget reqhandle EXIT 229 44 70 label "_Ok"
  60.             addarexxgadget reqhandle TEXT 8 10 512 border none string "'The FONTLISTv2 file could not be opened, or it was not a'"
  61.             addarexxgadget reqhandle TEXT 8 20 512 border none string "'valid PageStream2 FONTLISTv2 file. Please try again.'"
  62.             doarexxrequester reqhandle
  63.             freearexxrequester reqhandle
  64.             'lockinterface false'
  65.         end
  66.     end
  67. end
  68.